www.gusucode.com > HCONLY站长管理助手 V1.3 > HCONLY站长管理助手 V1.3\code\Download.asp

    <!--#include file="config/chkAdmin.asp"-->
<%
Dim Stream 
Dim Contents 
Dim FileName 
Dim FileExt 
Const adTypeBinary = 1 
FileName = Request.QueryString("FileName")
if FileName = "" Then 
Response.Write "无效文件名." 
Response.End 
End if 
' 下面是不希望下载的文件 
FileExt = Mid(FileName, InStrRev(FileName, ".") + 1) 
Select Case UCase(FileExt) 
Case "ASA", "MDB" 
Response.Write "受保护文件，不提供下载." 
Response.End 
End Select 
' 下载这个文件 
Response.Clear 
Response.ContentType = "application/octet-stream" 
Response.AddHeader "content-disposition", "attachment; filename=" & FileName
Response.Charset = "GB2312" 
Set Stream = server.CreateObject("ADODB.Stream") 
Stream.Type = adTypeBinary 
Stream.Open 
Stream.LoadFromFile Server.MapPath(FileName) 
While Not Stream.EOS 
Response.BinaryWrite Stream.Read(1024 * 64) 
Wend 
Stream.Close 
Set Stream = Nothing 
Response.Flush 
Response.End
%>